﻿Namespace Control
    Public Class Tr_Tipo_Calc
        Implements IControl(Of Model.Tr_Tipo_Calc)

        Public Function Excluir(ByVal entity As Model.Tr_Tipo_Calc) As Boolean Implements IControl(Of Model.Tr_Tipo_Calc).Excluir

        End Function

        Public Function ListaTudo() As System.Collections.Generic.IList(Of Model.Tr_Tipo_Calc) Implements IControl(Of Model.Tr_Tipo_Calc).ListaTudo
            Dim TipoCalc As New List(Of Model.Tr_Tipo_Calc)

            Dim TipoCalcValor As New Model.Tr_Tipo_Calc
            TipoCalcValor.cd_tr_tipo_calc = 1
            TipoCalcValor.tr_tipo_calc_nome = "Valor"

            TipoCalc.Add(TipoCalcValor)

            Dim TipoCalcPerc As New Model.Tr_Tipo_Calc
            TipoCalcPerc.cd_tr_tipo_calc = 2
            TipoCalcPerc.tr_tipo_calc_nome = "Percentual"

            TipoCalc.Add(TipoCalcPerc)

            Return TipoCalc
        End Function

        Public Function ListaUm(ByVal entity As Model.Tr_Tipo_Calc) As Model.Tr_Tipo_Calc Implements IControl(Of Model.Tr_Tipo_Calc).ListaUm
            ' Não será usado, existe por Implements IControl
            Dim TipoCalcValor As New Model.Tr_Tipo_Calc
            TipoCalcValor.cd_tr_tipo_calc = 1
            TipoCalcValor.tr_tipo_calc_nome = "Valor"

            Return TipoCalcValor
        End Function

        Public Function Salvar(ByVal entity As Model.Tr_Tipo_Calc) As Boolean Implements IControl(Of Model.Tr_Tipo_Calc).Salvar

        End Function
    End Class
End Namespace